home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / Libraries / SpriteWorld / SpriteWorld files / Interfaces / SWCommonHeaders.p < prev    next >
Text File  |  1996-11-02  |  2KB  |  81 lines
  1. {/--------------------------------------------------------------------------------------}
  2. {    SWCommonHeaders.h}
  3. {}
  4. {    Portions are copyright: c 1991-94 Tony Myles, All rights reserved worldwide.}
  5. {}
  6. {    Description:    common macros, constants, and stuff, used throughout SpriteWorld}
  7. {/--------------------------------------------------------------------------------------}
  8.  
  9. unit SWCommonHeaders;
  10.  
  11. interface
  12.  
  13.     uses
  14. {$IFC undefined THINK_Pascal}
  15.         Types, 
  16. {$ENDC}
  17.         Retrace;
  18.  
  19. {$PUSH}
  20. {$ALIGN MAC68K}
  21.  
  22.     type
  23.         VBLTaskRec = record
  24.                 myVBLTask: VBLTask;
  25.                 hasVBLFired: Boolean;
  26.             end;
  27.         VBLTaskRecPtr = ^VBLTaskRec;
  28.         VBLTaskRecHdl = ^VBLTaskRec;
  29.  
  30.     type
  31.         SpriteWorldPtr = ^integer;
  32.         SpriteWorldHdl = ^SpriteWorldPtr;
  33.  
  34.     const
  35.         kBitsPerByte = 8;
  36.  
  37.     type
  38.         PixelCode = integer;
  39.         PixelCodePtr = ^PixelCode;
  40.         PixelCodeHdl = ^PixelCodePtr;
  41.  
  42.     type
  43. {$IFC undefined THINK_Pascal}
  44.         BlitFuncPtr = procedure (srcStride, destStride: longint; srcBaseAddr: Ptr; destBaseAddr: Ptr);
  45. {$ELSEC}
  46.         BlitFuncPtr = ProcPtr;
  47. {$ENDC}
  48.  
  49. {$IFC not undefined THINK_Pascal}
  50.     type
  51. {CAP-10/29}
  52.         UInt32 = LONGINT;
  53.         SInt16 = INTEGER;
  54.  
  55.         UnsignedWide = record
  56.                 hi: UInt32;
  57.                 lo: UInt32;
  58.             end;
  59.  
  60.     function LMGetSysEvtMask: SInt16;
  61.     inline
  62.         $3EB8, $0144;            { MOVE.w $0144,(SP) }
  63.  
  64.     function LMGetMBarHeight: SInt16;
  65.     inline
  66.         $3EB8, $0BAA;            { MOVE.w $0BAA,(SP) }
  67.  
  68.     procedure LMSetMBarHeight (value: SInt16);
  69.     inline
  70.         $31DF, $0BAA;            { MOVE.w (SP)+,$0BAA }
  71.  
  72. {$ENDC}
  73.  
  74. {$ALIGN RESET}
  75. {$POP}
  76.  
  77. {$IFC not undefined THINK_Pascal}
  78. implementation
  79. {$ENDC}
  80. end.
  81.